home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / ch07_au / cmddemos / autodet.dir / 00001_general movie scripts.ls next >
Encoding:
Text File  |  1996-10-23  |  672 b   |  36 lines
  1. global gPrefSettings
  2.  
  3. on startMovie
  4.   set the randomSeed to the ticks
  5.   readPrefs()
  6.   readExternalParams()
  7.   if not voidp(getaProp(gPrefSettings, "bandwidth")) then
  8.     if the movieName contains ".dcr" then
  9.       startBitCheck()
  10.     end if
  11.     set bandOp to string(getaProp(gPrefSettings, "bandwidth"))
  12.   else
  13.     set bandOp to "0"
  14.   end if
  15.   radio(bandOp & "-band")
  16. end
  17.  
  18. on stopMovie
  19.   writePrefs()
  20. end
  21.  
  22. on idle
  23.   global gBitTestFlag
  24.   if gBitTestFlag = 1 then
  25.     checkBitstream()
  26.   end if
  27. end
  28.  
  29. on debug arg, theField
  30.   if voidp(theField) then
  31.     set theField to "debugger"
  32.   end if
  33.   set the text of field theField to arg
  34.   set the textSize of field theField to 9
  35. end
  36.